a rope slides frictionlessly down the edge of a table

[Analog_Engine.git] / scripts / Radioactive Decay.AESL

diff --git a/scripts/Radioactive Decay.AESL b/scripts/Radioactive Decay.AESL
new file mode 100644 (file)
index 0000000..ef7fcdf
--- /dev/null
+++ b/scripts/Radioactive Decay.AESL
@@ -0,0 +1,23 @@
+IDENTIFICATION DIVISION
+PROGRAM-ID Radioactive_Decay
+
+ENVIRONMENT DIVISION
+ENGINE Anabrid-THAT
+REQUIRES COEFFICIENT 2
+REQUIRES INTEGRATOR 1
+REQUIRES INVERTER 1
+
+DATA DIVISION
+OUTPUT OUTPUT.X N
+COEFFICIENT.1 InitialValue
+COEFFICIENT.2 Decay 
+
+PROGRAM DIVISION
++1 -> COEFFICIENT.InitialValue -> N0
+N’, IC:N0 -> INTEGRATOR -> -N
+-N -> COEFFICIENT.Decay -> -lambda*N=N’
+-N -> INVERTER -> N
+
+OPERATION DIVISION
+MODE REPEAT
+OP-TIME 20ms